﻿Public Class frmTimeIn

    Private Sub cmdVerify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerify.Click
        If MessageBox.Show("Are You Sure? If Yes then Current System Time will be Recorded", "Verify Message", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            lblTimeIn.Text = Date.Now.ToShortTimeString
            cmdOk.Enabled = True
            cmdVerify.Enabled = False
        End If
    End Sub

    Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
        Me.Hide()
        frmMain.Show()
        frmMain.cmdTimeIn.Enabled = False
    End Sub

    Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
        Me.Close()
        frmMain.Show()
    End Sub
End Class